home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / ezzcomm.zip / QBBSPOST.T < prev    next >
Text File  |  1991-02-16  |  1KB  |  35 lines
  1.  : EZ-ZCOMM Copyright 1991 by Roger E. Hough, All Rights Reserved.
  2.  : Licensed for use at your own risk without fee. Altered versions,
  3.  : when distributed, must be clearly marked as altered and accompanied
  4.  : by the originals.
  5.  :
  6.  : Send an Outbound Echomail file
  7.  : 1st line of file is the destination
  8.  : 2nd line of file is the Subject
  9.  : Remainder of file is the memo
  10.  display inhibit;open -!g %item;display noinhibit
  11.  setc z0 \032;if !t goto mailinvd
  12.  grab z1;if !%z1||Iz0,z1||!t goto mailinvd
  13.  grab z2;if !%z2||Iz0,z2||!t goto mailinvd
  14.  grab z3;if Iz0,z3||!t goto mailinvd
  15.  put P;pat;pat 0c "message to? " "@putv z1;put \r"
  16.  pat 1c "Subject? " "@putv z2;put \r"
  17.  pat 2c "vate Message [y/N]? " N
  18.  pat 3c "vate Message [Y/n]? " N
  19.  pat 4i "\n01: ";wait -f30
  20. mailnext:
  21.  pat;if %z3 putv z3;put \r
  22.  else put " \r"
  23.  pat 0i \n;wait -f10
  24.  pat;pat 0i ": ";wait -f10
  25.  grab z3;if t ife !Iz0,z3 goback mailnext;closetx
  26.  pat;put \r;pat 0i "ontinue Msg";wait -f10
  27.  put S;pat;pat 0i "Echo Conference";wait -f30
  28.  del %item
  29.  return
  30. mailinvd:
  31.  echoc "Improper File - %item"
  32.  if t nolog closetx
  33.  del %item
  34.  return
  35.